home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / newerX / xlibTemplates.self < prev   
Encoding:
Text File  |  1993-07-18  |  25.9 KB  |  743 lines
  1. "Sun-1.4"
  2.  
  3. "Copyright 1992 Sun Microsystems, Inc. and Stanford University.
  4.  See the LICENSE file for license information."
  5.  
  6. "CAUTION: This file is not part of the documented Self world.  It may be
  7.  be changed or removed at any time, and it will not be documented.
  8.  This file can be removed without affecting the Self world in any way."
  9.  
  10.  
  11. "Template used by primitiveMaker to create Xlib primitives."
  12.  
  13.  
  14. primitiveMaker reader copy dynamicLinking create: 'xlib' From: ('
  15.  
  16.   -- Copyright 1992 Sun Microsystems, Inc. and Stanford University.
  17.   -- See the LICENSE file for license information.
  18.  
  19.   macroName: xlib
  20.   glueLibraryName: xlib_glue.so
  21.  
  22.  
  23. ','
  24.  
  25.  
  26. traits: traits xlib display raw
  27.   -- display
  28.   // XOpenDisplay and XCloseDisplay are (statically) defined in the VM
  29.   ^ void xDisplayName: string = string call XDisplayName canAWS
  30.   _ Display defaultScreenOfDisplay \
  31.         = Screen {xlib screen deadCopy} call DefaultScreenOfDisplay 
  32.   _ Display connectionNumber = int call ConnectionNumber
  33.  
  34.  
  35.   -- visual info 
  36.   ^ Display xMatchVisualInfoScreen: int Depth: int Class: int \
  37.             = XVisualInfo {xlib xVisualInfo deadCopy} \
  38.           call XMatchVisualInfo_wrap passFailHandle canAWS
  39.  
  40.  
  41.   -- event handling
  42.   ^ Display xEventsQueued: int     = int  call XEventsQueued canAWS
  43.   ^ Display xPending           = int  call XPending      canAWS
  44.   ^ Display xNextEventInto: XEvent = void call XNextEvent    canAWS
  45.   ^ Display xPeekEventInto: XEvent = void call XPeekEvent    canAWS
  46.   ^ Display xPutBackEvent: XEvent  = void call XPutBackEvent canAWS
  47.  
  48.   ^ Display xCheckType: int  OfEvent: XEvent = bool call XCheckTypedEvent canAWS
  49.   ^ Display xCheckMask: long OfEvent: XEvent = bool call XCheckMaskEvent  canAWS
  50.  
  51.  
  52.   -- synchronization
  53.   ^ Display xFlush                  = void call XFlush       canAWS
  54.   ^ Display xSynchronize: bool      = void call XSynchronize canAWS
  55.   ^ Display xSyncDiscardingIf: bool = void call XSync         canAWS
  56.  
  57.  
  58.   -- gc
  59.   // the following uses ANY_SEAL because drawables can be pixmaps or windows
  60.   // since pixmaps and windows are integers, this will not cause a crash
  61.   ^ Display xCreateGCDrawable: proxy Drawable ANY_SEAL \
  62.                     ValueMask: unsigned_long \
  63.                        Values: XGCValues \
  64.             = proxy GC GC_seal {xlib graphicsContext deadCopy} \
  65.               call XCreateGC canAWS
  66.   ^ Display xFreeGC: proxy GC GC_seal = void call XFreeGC canAWS
  67.  
  68.   ^ Display xGetGCValuesGC: proxy GC GC_seal \
  69.          ValueMask: unsigned_long \
  70.             Values: XGCValues \
  71.             = void call XGetGCValues_wrap passFailHandle canAWS
  72.  
  73.   ^ Display xSetGC: proxy GC GC_seal Foreground: unsigned_long \
  74.             = void call XSetForeground canAWS
  75.   ^ Display xSetGC: proxy GC GC_seal Background: unsigned_long \
  76.             = void call XSetBackground canAWS
  77.   ^ Display xSetGC: proxy GC GC_seal Function: int \
  78.             = void call XSetFunction canAWS
  79.   ^ Display xSetGC: proxy GC GC_seal PlaneMask: unsigned_long \
  80.             = void call XSetPlaneMask canAWS
  81.   ^ Display xSetGC: proxy GC GC_seal LineAttributesWidth: unsigned_int \
  82.                            LineStyle: int \
  83.                             CapStyle: int \
  84.                            JoinStyle: int \
  85.             = void call XSetLineAttributes canAWS
  86.   ^ Display xSetGC: proxy GC GC_seal Font: proxy Font Font_seal \
  87.             = void call XSetFont canAWS
  88.   ^ Display xSetGC: proxy GC GC_seal GraphicsExposures: bool \
  89.             = void call XSetGraphicsExposures canAWS
  90.   ^ Display xSetGC: proxy GC GC_seal FillStyle: int \
  91.         = void call XSetFillStyle canAWS
  92.   ^ Display xSetGC: proxy GC GC_seal FillRule: int \
  93.         = void call XSetFillRule canAWS
  94.   ^ Display xSetGC: proxy GC GC_seal Stipple: proxy Pixmap Pixmap_seal \
  95.         = void call XSetStipple canAWS
  96.  
  97.   ^ Display xQueryBestStippleWidth: proxy Drawable ANY_SEAL \
  98.                  Width: int \
  99.                 Height: int \
  100.         = unsigned_long call XQueryBestStippleWidth passFailHandle canAWS
  101.   ^ Display xQueryBestStippleHeight: proxy Drawable ANY_SEAL \
  102.                   Width: int \
  103.                  Height: int \
  104.         = unsigned_long call XQueryBestStippleWidth passFailHandle canAWS
  105.  
  106.  
  107.   -- atom
  108.   _ Display xInternAtom: string OnlyIfExists: bool \
  109.             = proxy Atom Atom_seal {xlib atom deadCopy} call XInternAtom canAWS
  110.  
  111.  
  112.   -- window
  113.   ^ Display xCreateSimpleWindowIn: proxy Window Window_seal \
  114.                                 X: int \
  115.                                 Y: int \
  116.                             Width: unsigned_int \
  117.                            Height: unsigned_int \
  118.                       BorderWidth: unsigned_int \
  119.                            Border: unsigned_long \
  120.                        Background: unsigned_long \
  121.             = proxy Window Window_seal {xlib window deadCopy} \
  122.           call XCreateSimpleWindow canAWS
  123.  
  124.   ^ Display xSetWMProtocolOfWindow: proxy Window Window_seal \
  125.                   Protocol: proxy Atom Atom_seal \
  126.      = int call XSetWMProtocol_wrap canAWS
  127.   ^ Display xSetWMNameOfWindow: proxy Window Window_seal To: XTextProperty \
  128.             = void call XSetWMName canAWS
  129.   ^ Display xSetWMIconNameOfWindow: proxy Window Window_seal To: XTextProperty \
  130.             = void call XSetWMIconName canAWS
  131.   ^ Display xSetWMHintsOfWindow: proxy Window Window_seal To: XWMHints \
  132.             = void call XSetWMHints canAWS
  133.   ^ Display xSetWMNormalHintsOfWindow: proxy Window Window_seal To: XSizeHints \
  134.             = void call XSetWMNormalHints canAWS
  135.  
  136.   ^ Display xSelectInputOfWindow: proxy Window Window_seal EventMask: long \
  137.             = void call XSelectInput canAWS
  138.  
  139.   ^ Display xMapWindow: proxy Window Window_seal = void call XMapWindow canAWS
  140.   ^ Display xRaiseWindow: proxy Window Window_seal \
  141.             = void call XRaiseWindow canAWS
  142.  
  143.   ^ Display xUnmapWindow: proxy Window Window_seal = void call XUnmapWindow canAWS
  144.   ^ Display xDestroyWindow: proxy Window Window_seal = void call XDestroyWindow canAWS
  145.   ^ Display xMoveResizeWindow: proxy Window Window_seal \
  146.                 X: int \
  147.                 Y: int \
  148.             Width: unsigned_int \
  149.             Height: unsigned_int \
  150.     = void call XMoveResizeWindow
  151.  
  152.  
  153.   -- cursor
  154.   ^ Display xWarpPointerSrcWindow: proxy_null Window Window_seal \
  155.                        DestWindow: proxy_null Window Window_seal \
  156.                              SrcX: int \
  157.                              SrcY: int \
  158.                          SrcWidth: unsigned_int \
  159.                         SrcHeight: unsigned_int \
  160.                             DestX: int \
  161.                             DestY: int \
  162.             = void call XWarpPointer canAWS
  163.  
  164.   ^ Display xGrabPointerWindow: proxy Window Window_seal \
  165.                    OwnerEvents: bool \
  166.                      EventMask: unsigned_int \
  167.                    PointerMode: int \
  168.                   KeyboardMode: int \
  169.                      ConfineTo: proxy_null Window Window_seal \
  170.                         Cursor: proxy_null Cursor Cursor_seal \
  171.                           Time: unsigned_long \
  172.             = int call XGrabPointer  canAWS                        
  173.   ^ Display xUngrabPointerTime: unsigned_long = void call XUngrabPointer canAWS
  174.  
  175.   ^ Display xDefineCursorWindow: proxy      Window Window_seal \
  176.                          Cursor: proxy_null Cursor Cursor_seal \
  177.             = void call XDefineCursor canAWS
  178.   ^ Display xUndefineCursorWindow: proxy Window Window_seal \
  179.             = void call XUndefineCursor canAWS
  180.  
  181.   ^ Display xCreatePixmapCursorSource: proxy      Pixmap Pixmap_seal \
  182.                                  Mask: proxy_null Pixmap Pixmap_seal \
  183.                       ForegroundColor: XColor \
  184.                       BackgroundColor: XColor \
  185.                                     X: unsigned_int \
  186.                                     Y: unsigned_int \
  187.             = proxy Cursor Cursor_seal {xlib cursor deadCopy} \
  188.               call XCreatePixmapCursor canAWS
  189.   ^ Display xFreeCursor: proxy Cursor Cursor_seal = void call XFreeCursor canAWS
  190.  
  191.  
  192.   -- colormap
  193.   ^ Display xCreateColormapWindow: proxy Window Window_seal \
  194.                            Visual: Visual \
  195.                          Allocate: bool \
  196.             = proxy Colormap Colormap_seal {xlib colormap deadCopy} \
  197.               call XCreateColormap canAWS
  198.   ^ Display xFreeColormap: proxy Colormap Colormap_seal \
  199.             = void call XFreeColormap canAWS
  200.  
  201.   ^ Display xSetWindow: proxy Window Window_seal \
  202.               Colormap: proxy Colormap Colormap_seal \
  203.             = void call XSetWindowColormap canAWS
  204.  
  205.   ^ Display xQueryColormap: proxy Colormap Colormap_seal \
  206.                     Colors: oop objVector \
  207.             = void call XQueryColors_wrap passFailHandle canAWS
  208.   ^ Display xStoreColormap: proxy Colormap Colormap_seal \
  209.                     Colors: oop objVector \
  210.             = void call XStoreColors_wrap passFailHandle canAWS
  211.   ^ Display xQueryColormap: proxy Colormap Colormap_seal Color: XColor \
  212.             = void call XQueryColor canAWS
  213.   ^ Display xStoreColormap: proxy Colormap Colormap_seal Color: XColor \
  214.             = void call XStoreColor canAWS
  215.  
  216.  
  217.   -- pixmap
  218.   // the following uses ANY_SEAL because drawables can be pixmaps or windows
  219.   // since pixmaps and windows are integers, this will not cause a crash
  220.   ^ Display xCreateBitmapDrawable: proxy Drawable ANY_SEAL \
  221.                              Data: cbv char* \
  222.                             Width: unsigned_int \
  223.                            Height: unsigned_int \
  224.             = proxy Pixmap Pixmap_seal {xlib pixmap deadCopy} \
  225.           call XCreateBitmapFromData canAWS
  226.  
  227.   // the following uses ANY_SEAL because drawables can be pixmaps or windows
  228.   // since pixmaps and windows are integers, this will not cause a crash
  229.   ^ Display xCreatePixmap: proxy Drawable ANY_SEAL \
  230.                     Width: unsigned_int \
  231.            Height: unsigned_int \
  232.             Depth: unsigned_int \
  233.             = proxy Pixmap Pixmap_seal {xlib pixmap deadCopy} \
  234.           call XCreatePixmap canAWS
  235.   ^ Display xFreePixmap: proxy Pixmap Pixmap_seal \
  236.             = void call XFreePixmap canAWS
  237.  
  238. ','
  239.  
  240.   -- drawing
  241.   // the following uses ANY_SEAL because drawables can be pixmaps or windows
  242.   // since pixmaps and windows are integers, this will not cause a crash
  243.  
  244.   ^ Display xClearWindow: proxy Window Window_seal \
  245.             = void call XClearWindow canAWS
  246.  
  247.   ^ Display xCopyAreaSrc: proxy Drawable ANY_SEAL \
  248.             Dest: proxy Drawable ANY_SEAL \
  249.               GC: proxy GC GC_seal \
  250.             SrcX: int \
  251.             SrcY: int \
  252.            Width: unsigned_int \
  253.           Height: unsigned_int \
  254.            DestX: int \
  255.            DestY: int \
  256.             = void call XCopyArea canAWS
  257.  
  258.   ^ Display copyBitmap: proxy Drawable ANY_SEAL \
  259.             Dest: proxy Drawable ANY_SEAL \
  260.               GC: proxy GC GC_seal \
  261.            Width: unsigned_int \
  262.           Height: unsigned_int \
  263.            DestX: int \
  264.            DestY: int \
  265.             = void call kjx_copyBitmap canAWS
  266.  
  267.   ^ Display xDrawPoint: proxy Drawable ANY_SEAL \
  268.             GC: proxy GC GC_seal \
  269.              X: int \
  270.              Y: int \
  271.             = void call XDrawPoint canAWS
  272.   ^ Display xDrawLine: proxy Drawable ANY_SEAL \
  273.            GC: proxy GC GC_seal \
  274.            X1: int \
  275.            Y1: int \
  276.            X2: int \
  277.            Y2: int \
  278.         = void call XDrawLine canAWS
  279.   ^ Display xDrawRectangle: proxy Drawable ANY_SEAL \
  280.             GC: proxy GC GC_seal \
  281.              X: int \
  282.              Y: int \
  283.              Width: unsigned_int \
  284.             Height: unsigned_int \
  285.             = void call XDrawRectangle canAWS
  286.   ^ Display xFillRectangle: proxy Drawable ANY_SEAL \
  287.             GC: proxy GC GC_seal \
  288.              X: int \
  289.              Y: int \
  290.              Width: unsigned_int \
  291.             Height: unsigned_int \
  292.             = void call XFillRectangle canAWS
  293.   ^ Display xFillPolygon: proxy Drawable ANY_SEAL \
  294.               GC: proxy GC GC_seal \
  295.               Xs: oop objVector \
  296.               Ys: oop objVector \
  297.            Shape: int \
  298.             Mode: int \
  299.             = void call XFillPolygon_wrap passFailHandle canAWS
  300.   ^ Display xDrawArc: proxy Drawable ANY_SEAL \
  301.                      GC: proxy GC GC_seal \
  302.            X: int \
  303.            Y: int \
  304.            Width: unsigned_int \
  305.           Height: unsigned_int \
  306.       StartAngle: int \
  307.         EndAngle: int \
  308.             = void call XDrawArc canAWS
  309.   ^ Display xFillArc: proxy Drawable ANY_SEAL \
  310.                      GC: proxy GC GC_seal \
  311.            X: int \
  312.            Y: int \
  313.            Width: unsigned_int \
  314.           Height: unsigned_int \
  315.       StartAngle: int \
  316.         EndAngle: int \
  317.             = void call XFillArc canAWS
  318.   ^ Display xDrawString: proxy Drawable ANY_SEAL \
  319.              GC: proxy GC GC_seal \
  320.               X: int \
  321.               Y: int \
  322.          String: string_len_null \
  323.         = void call XDrawString canAWS
  324.  
  325.  
  326.   -- font
  327.   ^ Display xQueryFont: proxy Font Font_seal \
  328.             = XFontStruct {xlib xFontStruct deadCopy} \
  329.           call XQueryFont canAWS
  330.   ^ Display xLoadQueryFont: string_null \
  331.             = XFontStruct {xlib xFontStruct deadCopy} \
  332.           call XLoadQueryFont_wrap passFailHandle canAWS
  333.   ^ Display xFreeFont: XFontStruct = void call XFreeFont canAWS
  334.  
  335.  
  336.   -- image
  337.   ^ Display xGetImage: proxy Drawable ANY_SEAL \
  338.             X: int \
  339.             Y: int \
  340.         Width: unsigned_int \
  341.            Height: unsigned_int \
  342.         PlaneMask: unsigned_long \
  343.            Format: int \
  344.             = XImage {xlib xImage deadCopy} call XGetImage canAWS
  345. ','
  346.  
  347.  
  348.  
  349. traits: traits xlib window raw
  350.   ^ void nullWindow \
  351.             = proxy_null Window Window_seal {xlib window deadCopy} get NULL 
  352.  
  353.  
  354.  
  355. traits: traits xlib cursor raw
  356.   ^ void nullCursor \
  357.             = proxy_null Cursor Cursor_seal {xlib cursor deadCopy} get NULL 
  358.  
  359.  
  360.  
  361. traits: traits xlib screen raw
  362.   ^ Screen rootWindowOfScreen \
  363.             = proxy Window Window_seal {xlib window deadCopy} \
  364.           call RootWindowOfScreen
  365.   ^ Screen defaultVisualOfScreen \
  366.             = Visual {xlib visual deadCopy} call DefaultVisualOfScreen
  367.   ^ Screen defaultGCOfScreen \
  368.             = proxy GC GC_seal {xlib graphicsContext deadCopy} \
  369.           call DefaultGCOfScreen
  370.   ^ Screen defaultColormapOfScreen \
  371.         = proxy Colormap Colormap_seal {xlib colormap deadCopy} \
  372.           call DefaultColormapOfScreen
  373.  
  374.   ^ Screen blackPixelOfScreen = unsigned_long call BlackPixelOfScreen
  375.   ^ Screen whitePixelOfScreen = unsigned_long call WhitePixelOfScreen
  376.  
  377.   ^ Screen widthOfScreen  = int call WidthOfScreen
  378.   ^ Screen heightOfScreen = int call HeightOfScreen
  379.   ^ Screen defaultDepthOfScreen = int call DefaultDepthOfScreen
  380.  
  381.   ^ Screen xScreenNumberOfScreen = int call XScreenNumberOfScreen canAWS
  382.  
  383.  
  384.  
  385. traits: traits xlib xVisualInfo raw
  386.   ^ void new = XVisualInfo {xlib xVisualInfo deadCopy} new
  387.   ^ XVisualInfo delete = void delete
  388.  
  389.  
  390.  
  391. traits: traits xlib xFontStruct raw
  392.   ^ XFontStruct xTextWidth: string_len_null = int call XTextWidth canAWS
  393.   ^ XFontStruct fid     = proxy Font Font_seal {xlib font deadCopy} \
  394.               getMember fid
  395.   ^ XFontStruct ascent  = int getMember ascent
  396.   ^ XFontStruct descent = int getMember descent
  397.  
  398.   ^ XFontStruct maxCharWidth  = int call maxCharWidth
  399.   ^ XFontStruct maxCharHeight = int call maxCharHeight
  400.  
  401.  
  402.  
  403. traits: traits xlib xCharStruct raw
  404.   ^ XCharStruct width   = int getMember width
  405.   ^ XCharStruct ascent  = int getMember ascent
  406.   ^ XCharStruct descent = int getMember descent
  407.  
  408.  
  409.  
  410. traits: traits xlib xGCValues raw
  411.   ^ void new = XGCValues {xlib xGCValues deadCopy} new
  412.   ^ XGCValues delete = void delete
  413.  
  414.   ^ XGCValues function           = int getMember function
  415.   ^ XGCValues plane_mask     = unsigned_long getMember plane_mask
  416.   ^ XGCValues foreground     = unsigned_long getMember foreground
  417.   ^ XGCValues background     = unsigned_long getMember background
  418.   ^ XGCValues line_width     = int getMember line_width
  419.   ^ XGCValues fill_style     = int getMember fill_style
  420.   ^ XGCValues fill_rule         = int getMember fill_rule
  421.   ^ XGCValues graphics_exposures = bool getMember graphics_exposures
  422.   ^ XGCValues font         = proxy Font Font_seal {xlib font deadCopy} \
  423.                    getMember font
  424.   ^ XGCValues stipple = proxy Pixmap Pixmap_seal {xlib pixmap deadCopy } \
  425.             getMember stipple
  426.  
  427.  
  428.  
  429. traits: traits xlib xColor raw
  430.   ^ void new = XColor {xlib xColor deadCopy} new
  431.   ^ XColor delete = void delete
  432.  
  433.   ^ XColor pixel = int  getMember pixel
  434.   ^ XColor red   = int  getMember red
  435.   ^ XColor green = int  getMember green
  436.   ^ XColor blue  = int  getMember blue
  437.   ^ XColor flags = char getMember flags
  438.  
  439.   ^ XColor pixel: int  = void setMember pixel
  440.   ^ XColor red:   int  = void setMember red
  441.   ^ XColor green: int  = void setMember green
  442.   ^ XColor blue:  int  = void setMember blue
  443.   ^ XColor flags: char = void setMember flags
  444.  
  445.  
  446.  
  447. traits: traits xlib xImage raw
  448.   ^ XImage xGetPixelX: int Y: int = unsigned_long call XGetPixel canAWS
  449.  
  450. ', '
  451.  
  452.  
  453. traits: traits xlib events xEvent raw
  454.   ^ void new = XEvent {xlib events xEvent deadCopy} new
  455.   _ XEvent basicDelete = void delete
  456.   ^ XEvent type = int getMember type
  457.  
  458.   // this next one is an unfortunate type-safety hole -- dmu
  459.   ^ proxy XEvent* ANY_SEAL asXEvent \
  460.         = XEvent {xlib events xEvent deadCopy} call asXEvent
  461.  
  462.   ^ XEvent       xany      = \
  463.                  XAnyEvent \
  464.     {xlib events xAnyEvent deadCopy} \
  465.         call get_xany_wrap
  466.  
  467.   ^ XEvent       xbutton   = \
  468.                  XButtonEvent \
  469.     {xlib events xButtonEvent deadCopy} \
  470.         call get_xbutton_wrap
  471.   
  472.   ^ XEvent       xclient   = \
  473.                  XClientMessageEvent   \
  474.     {xlib events xClientMessageEvent deadCopy} \
  475.         call get_xclient_wrap
  476.  
  477.   ^ XEvent       xcolormap = \
  478.                  XColormapEvent \
  479.     {xlib events xColormapEvent deadCopy} \
  480.         call get_xcolormap_wrap
  481.  
  482.   ^ XEvent       xconfigure = \
  483.                  XConfigureEvent \
  484.     {xlib events xConfigureEvent deadCopy} \
  485.         call get_xconfigure_wrap
  486.  
  487.   ^ XEvent       xcrossing  = \
  488.                  XCrossingEvent \
  489.     {xlib events xCrossingEvent deadCopy} \
  490.         call get_xcrossing_wrap
  491.  
  492.   ^ XEvent       xexpose  = \
  493.                  XExposeEvent \
  494.     {xlib events xExposeEvent deadCopy} \
  495.         call get_xexpose_wrap
  496.  
  497.   ^ XEvent       xgraphicsexpose  = \
  498.                  XGraphicsExposeEvent \
  499.     {xlib events xGraphicsExposeEvent deadCopy} \
  500.         call get_xgraphicsexpose_wrap
  501.  
  502.   ^ XEvent       xkey  = \
  503.                  XKeyEvent \
  504.     {xlib events xKeyEvent deadCopy} \
  505.         call get_xkey_wrap
  506.  
  507.   ^ XEvent       xmap  = \
  508.                  XMapEvent \
  509.     {xlib events xMapEvent deadCopy} \
  510.         call get_xmap_wrap
  511.  
  512.   ^ XEvent       xmotion  = \
  513.                  XMotionEvent \
  514.     {xlib events xMotionEvent deadCopy} \
  515.         call get_xmotion_wrap
  516.  
  517.   ^ XEvent       xnoexpose  = \
  518.                  XNoExposeEvent \
  519.     {xlib events xNoExposeEvent deadCopy} \
  520.         call get_xnoexpose_wrap
  521.  
  522.   ^ XEvent       xreparent  = \
  523.                  XReparentEvent \
  524.     {xlib events xReparentEvent deadCopy} \
  525.         call get_xreparent_wrap
  526.  
  527.   ^ XEvent       xunmap  = \
  528.                  XUnmapEvent \
  529.     {xlib events xUnmapEvent deadCopy} \
  530.         call get_xunmap_wrap
  531.  
  532.   ^ XEvent       xvisibility  = \
  533.                  XVisibilityEvent \
  534.     {xlib events xVisibilityEvent deadCopy} \
  535.         call get_xvisibility_wrap
  536.  
  537.  
  538.  
  539. traits: traits xlib events xButtonEvent raw
  540.   ^ XButtonEvent x      = int getMember x
  541.   ^ XButtonEvent y      = int getMember y
  542.   ^ XButtonEvent x_root = int getMember x_root
  543.   ^ XButtonEvent y_root = int getMember y_root
  544.   ^ XButtonEvent state  = unsigned_int getMember state
  545.   ^ XButtonEvent button = unsigned_int getMember button
  546.   ^ XButtonEvent window = proxy Window Window_seal {xlib window deadCopy} \
  547.                           getMember window
  548.  
  549.  
  550.  
  551. traits: traits xlib events xClientMessageEvent raw
  552.   ^ XClientMessageEvent message_type \
  553.         = proxy Atom Atom_seal {xlib atom deadCopy} getMember message_type
  554.   ^ XClientMessageEvent format = int getMember format
  555.   ^ XClientMessageEvent atomAt: unsigned_int \
  556.         = proxy Atom Atom_seal {xlib atom deadCopy} \
  557.       call XClientMessageEvent_atomAt_wrap passFailHandle
  558.   ^ XClientMessageEvent window \
  559.     = proxy Window Window_seal {xlib window deadCopy} getMember window
  560.  
  561.  
  562.  
  563. traits: traits xlib events xColormapEvent raw
  564.   ^ XColormapEvent c_new   = bool getMember c_new
  565.   ^ XColormapEvent state   = unsigned_int getMember state
  566.   ^ XColormapEvent window  = proxy Window Window_seal {xlib window deadCopy} \
  567.                              getMember window
  568.  
  569.  
  570.  
  571. traits: traits xlib events xConfigureEvent raw
  572.   ^ XConfigureEvent x      = int getMember x
  573.   ^ XConfigureEvent y      = int getMember y
  574.   ^ XConfigureEvent width  = int getMember width 
  575.   ^ XConfigureEvent height = int getMember height
  576.   ^ XConfigureEvent window = proxy Window Window_seal {xlib window deadCopy} \
  577.                              getMember window
  578.  
  579.  
  580.  
  581. traits: traits xlib events xCrossingEvent raw
  582.   ^ XCrossingEvent window = proxy Window Window_seal {xlib window deadCopy} \
  583.                             getMember window
  584.   ^ XCrossingEvent x      = int getMember x
  585.   ^ XCrossingEvent y      = int getMember y
  586.  
  587.  
  588. traits: traits xlib events xExposeEvent raw
  589.   ^ XExposeEvent x      = int getMember x
  590.   ^ XExposeEvent y      = int getMember y
  591.   ^ XExposeEvent width  = int getMember width 
  592.   ^ XExposeEvent height = int getMember height
  593.   ^ XExposeEvent count  = int getMember count
  594.   ^ XExposeEvent window = proxy Window Window_seal {xlib window deadCopy} \
  595.                           getMember window
  596.  
  597.  
  598.  
  599. traits: traits xlib events xGraphicsExposeEvent raw
  600.   ^ XGraphicsExposeEvent x      = int getMember x
  601.   ^ XGraphicsExposeEvent y      = int getMember y
  602.   ^ XGraphicsExposeEvent width  = int getMember width 
  603.   ^ XGraphicsExposeEvent height = int getMember height
  604.   ^ XGraphicsExposeEvent count  = int getMember count
  605.   // the next can return either a pixmap or a window (ie, any drawable).
  606.   // current glue cannot handle this kind of thing.  to get at this member, you
  607.   // will need to write a C wrapper that will return the right kind of proxy.
  608.   // ^ XGraphicsExposeEvent drawable \
  609.   //           = proxy Window Window_seal {xlib window deadCopy} getMember drawable
  610.  
  611.  
  612.  
  613. traits: traits xlib events xKeyEvent raw
  614.   ^ XKeyEvent x       = int getMember x
  615.   ^ XKeyEvent y       = int getMember y
  616.   ^ XKeyEvent x_root  = int getMember x_root
  617.   ^ XKeyEvent y_root  = int getMember y_root
  618.   ^ XKeyEvent state   = unsigned_int getMember state
  619.   ^ XKeyEvent keycode = unsigned_int getMember keycode
  620.   ^ XKeyEvent window  = proxy Window Window_seal {xlib window deadCopy} \
  621.                         getMember window
  622.   ^ XKeyEvent xLookupStringReturn: bv_len char* \
  623.             = int call XLookupString_wrap canAWS
  624.  
  625.  
  626.  
  627. traits: traits xlib events xMapEvent raw
  628.   ^ XMapEvent window = proxy Window Window_seal {xlib window deadCopy} \
  629.                getMember window
  630.  
  631.  
  632.  
  633. traits: traits xlib events xMotionEvent raw
  634.   ^ XMotionEvent x       = int getMember x
  635.   ^ XMotionEvent y       = int getMember y
  636.   ^ XMotionEvent x_root  = int getMember x_root
  637.   ^ XMotionEvent y_root  = int getMember y_root
  638.   ^ XMotionEvent state   = unsigned_int getMember state
  639.   ^ XMotionEvent is_hint = char getMember is_hint
  640.   ^ XMotionEvent window  = proxy Window Window_seal {xlib window deadCopy} \
  641.                            getMember window
  642.  
  643.  
  644.  
  645. traits: traits xlib events xNoExposeEvent raw
  646.   // the next can return either a pixmap or a window (ie, any drawable).
  647.   // current glue cannot handle this kind of thing.  to get at this member, you
  648.   // will need to write a C wrapper that will return the right kind of proxy.
  649.   // ^ XNoExposeEvent drawable
  650.   //        = proxy Window Window_seal {xlib window deadCopy} getMember drawable
  651.  
  652.  
  653.  
  654. traits: traits xlib events xReparentEvent raw
  655.   ^ XReparentEvent x      = int getMember x
  656.   ^ XReparentEvent y      = int getMember y
  657.   ^ XReparentEvent window = proxy Window Window_seal {xlib window deadCopy} \
  658.                 getMember window
  659.   ^ XReparentEvent parent_window \
  660.             = proxy Window Window_seal {xlib window deadCopy} getMember parent
  661.  
  662.  
  663.  
  664. traits: traits xlib events xUnmapEvent raw
  665.   ^ XUnmapEvent window = proxy Window Window_seal {xlib window deadCopy} \
  666.                          getMember window
  667.  
  668.  
  669.  
  670. traits: traits xlib events xVisibilityEvent raw
  671.   ^ XVisibilityEvent state  = unsigned_int getMember state
  672.   ^ XVisibilityEvent window = proxy Window Window_seal {xlib window deadCopy} \
  673.                               getMember window
  674.  
  675.  
  676. ', '
  677.  
  678.  
  679. traits: traits xlib xSizeHints raw
  680.   ^ void new = XSizeHints {xlib xSizeHints deadCopy} call XAllocSizeHints
  681.   ^ XSizeHints delete = void call XFree_XSizeHints_wrap canAWS
  682.  
  683.   ^ XSizeHints flags = long getMember flags
  684.  
  685.   ^ XSizeHints min_width  = int getMember min_width
  686.   ^ XSizeHints min_height = int getMember min_height
  687.   ^ XSizeHints max_width  = int getMember max_width
  688.   ^ XSizeHints max_height = int getMember max_height
  689.  
  690.   ^ XSizeHints flags: long = void setMember flags
  691.  
  692.   ^ XSizeHints min_width:  int = void setMember min_width
  693.   ^ XSizeHints min_height: int = void setMember min_height
  694.   ^ XSizeHints max_width:  int = void setMember max_width
  695.   ^ XSizeHints max_height: int = void setMember max_height
  696.  
  697.  
  698.  
  699. traits: traits xlib xWMHints raw
  700.   ^ void new = XWMHints {xlib xWMHints deadCopy} call XAllocWMHints      
  701.   ^ XWMHints delete = void call XFree_XWMHints_wrap canAWS
  702.  
  703.   ^ XWMHints flags         = long getMember flags
  704.   ^ XWMHints input         = bool getMember input
  705.   ^ XWMHints initial_state = int getMember initial_state
  706.   ^ XWMHints icon_x        = int getMember icon_x
  707.   ^ XWMHints icon_y        = int getMember icon_y
  708.   ^ XWMHints icon_pixmap   = proxy Pixmap Pixmap_seal {xlib pixmap deadCopy} \
  709.                              getMember icon_pixmap
  710.   ^ XWMHints icon_window   = proxy Window Window_seal {xlib window deadCopy} \
  711.                              getMember icon_window
  712.   ^ XWMHints icon_mask     = proxy Pixmap Pixmap_seal {xlib pixmap deadCopy} \
  713.                              getMember icon_mask
  714.  
  715.   ^ XWMHints flags: long        = void setMember flags
  716.   ^ XWMHints input: bool    = void setMember input
  717.   ^ XWMHints initial_state: int = void setMember initial_state
  718.   ^ XWMHints icon_x: int        = void setMember icon_x
  719.   ^ XWMHints icon_y: int    = void setMember icon_y
  720.   ^ XWMHints icon_pixmap: proxy Pixmap Pixmap_seal = void setMember icon_pixmap
  721.   ^ XWMHints icon_window: proxy Window Window_seal = void setMember icon_window
  722.   ^ XWMHints icon_mask:   proxy Pixmap Pixmap_seal = void setMember icon_mask
  723.  
  724.  
  725.  
  726. traits: traits xlib xTextProperty raw
  727.   ^ void new = XTextProperty {xlib xTextProperty deadCopy} new
  728.   _ void freeValue: proxy {char*} XTextProperty_value_seal = void call XFree 
  729.   _ XTextProperty basicDelete = void delete
  730.   _ XTextProperty value \
  731.             = proxy {unsigned char*} XTextProperty_value_seal {proxy deadCopy} \
  732.           getMember value
  733.   ^ XTextProperty xStringToTextProperty: string \
  734.             = int call XStringToTextProperty_wrap canAWS
  735.  
  736. traits: traits xlib window raw
  737.   ^ Window getWinId = unsigned_long call kjx_getWinId canAWS
  738.  
  739.  
  740.  
  741. ')
  742.  
  743.